home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 November: Tool Chest / Dev.CD Nov 94.toast / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / interfaces / OSA.lisp < prev    next >
Encoding:
Text File  |  1994-09-13  |  28.1 KB  |  606 lines  |  [TEXT/CCL2]
  1.  
  2. (in-package :TRAPS)             ; 
  3. ; ////////////////////////////////////////////////////////////////////////////////
  4. ; // OPEN SCRIPTING ARCHITECTURE: Client Interface
  5. ; ////////////////////////////////////////////////////////////////////////////////
  6. ; // Copyright © 1992 Apple Computer, Inc. All rights reserved.
  7. ; // Authors: Jens Alfke, William Cook, Donn Denman, and Warren Harris
  8. ; ////////////////////////////////////////////////////////////////////////////////
  9. ; // This interface defines what it means to be a "scripting component."
  10. ; // Scripting components allow "scripts" to be loaded and executed.  This
  11. ; // interface does not define the way in which a particular scripting
  12. ; // component's scripts are editing and debugged.
  13. ; ////////////////////////////////////////////////////////////////////////////////
  14. ; 
  15.  
  16. ; $IFC UNDEFINED UsingIncludes
  17. ; $SETC UsingIncludes := 0
  18. ; $ENDC
  19.  
  20. ; $IFC NOT UsingIncludes
  21.  
  22. ; $ENDC
  23.  
  24. ; $IFC UNDEFINED UsingOSA
  25. ; $SETC UsingOSA := 1
  26.  
  27. ; $I+
  28. ; $SETC OSAIncludes := UsingIncludes
  29. ; $SETC UsingIncludes := 1
  30. ; $IFC UNDEFINED UsingAppleEvents
  31.  
  32. (require-interface 'APPLEEVENTS); $I $$Shell(PInterfaces)AppleEvents.p
  33. ; $ENDC
  34. ; $IFC UNDEFINED UsingAEObjects
  35.  
  36. (require-interface 'AEOBJECTS)  ; $I $$Shell(PInterfaces)AEObjects.p
  37. ; $ENDC
  38. ; $IFC UNDEFINED UsingComponents
  39.  
  40. (require-interface 'COMPONENTS) ; $I $$Shell(PInterfaces)Components.p
  41. ; $ENDC
  42. ; $SETC UsingIncludes := OSAIncludes
  43.  
  44. ;  Types and Constants 
  45.  
  46. (defconstant $kOSAComponentType :|osa |)
  47. (defconstant $kOSAGenericScriptingComponentSubtype :|scpt|)
  48.  
  49. (defconstant $kOSAFileType :|osas|)
  50. ;  Type of script document files. 
  51.  
  52. (def-mactype :OSAID (find-mactype :SIGNED-LONG))
  53. (def-mactype :OSAERROR (find-mactype :SIGNED-LONG))
  54.  
  55. (defconstant $kOSANullScript 0)
  56. (defconstant $kOSANullMode 0)
  57. (defconstant $kOSAModeNull 0)
  58.  
  59. (defconstant $kOSASuite :|ascr|)
  60. (defconstant $kOSARecordedText :|recd|)
  61.  
  62. (defconstant $kOSAScriptResourceType #$KOSAGENERICSCRIPTINGCOMPONENTSUBTYPE)
  63. (defconstant $typeOSAGenericStorage #$KOSASCRIPTRESOURCETYPE)
  64.  
  65. ;  Error Codes 
  66.  
  67. ;  API Errors 
  68. (defconstant $errOSASystemError -1750)
  69. (defconstant $errOSAInvalidID -1751)
  70. (defconstant $errOSABadStorageType -1752)
  71. (defconstant $errOSAScriptError -1753)
  72. (defconstant $errOSABadSelector -1754)
  73. (defconstant $errOSASourceNotAvailable -1756)
  74. (defconstant $errOSANoSuchDialect -1757)
  75. (defconstant $errOSADataFormatObsolete -1758)
  76. (defconstant $errOSADataFormatTooNew -1759)
  77. (defconstant $errOSACorruptData #$ERRAECORRUPTDATA)
  78. (defconstant $errOSARecordingIsAlreadyOn #$ERRAERECORDINGISALREADYON)
  79.  
  80. ;  Dynamic errors 
  81. (defconstant $errOSACantCoerce #$ERRAECOERCIONFAIL)
  82. (defconstant $errOSACantAccess #$ERRAENOSUCHOBJECT)
  83. (defconstant $errOSACantAssign -10006)
  84. (defconstant $errOSAGeneralError -2700)
  85. (defconstant $errOSADivideByZero -2701)
  86. (defconstant $errOSANumericOverflow -2702)
  87. (defconstant $errOSACantLaunch -2703)
  88. (defconstant $errOSAAppNotHighLevelEventAware -2704)
  89. (defconstant $errOSACorruptTerminology -2705)
  90. (defconstant $errOSAStackOverflow -2706)
  91. (defconstant $errOSAInternalTableOverflow -2707)
  92. (defconstant $errOSADataBlockTooLarge -2708)
  93.  
  94. ;  Component-specific dynamic script errors: -2720 thru -2739 
  95.  
  96. ;  Static errors 
  97. (defconstant $errOSATypeError #$ERRAEWRONGDATATYPE)
  98. (defconstant $errOSAMessageNotUnderstood #$ERRAEEVENTNOTHANDLED)
  99. (defconstant $errOSAUndefinedHandler #$ERRAEHANDLERNOTFOUND)
  100. (defconstant $errOSAIllegalAccess #$ERRAEACCESSORNOTFOUND)
  101. (defconstant $errOSAIllegalIndex #$ERRAEILLEGALINDEX)
  102. (defconstant $errOSAIllegalRange #$ERRAEIMPOSSIBLERANGE)
  103. (defconstant $errOSAIllegalAssign -10003)
  104. (defconstant $errOSASyntaxError -2740)
  105. (defconstant $errOSASyntaxTypeError -2741)
  106. (defconstant $errOSATokenTooLong -2742)
  107. (defconstant $errOSAMissingParameter #$ERRAEDESCNOTFOUND)
  108. (defconstant $errOSAParameterMismatch #$ERRAEWRONGNUMBERARGS)
  109. (defconstant $errOSADuplicateParameter -2750)
  110. (defconstant $errOSADuplicateProperty -2751)
  111. (defconstant $errOSADuplicateHandler -2752)
  112. (defconstant $errOSAUndefinedVariable -2753)
  113. (defconstant $errOSAInconsistentDeclarations -2754)
  114. (defconstant $errOSAControlFlowError -2755)
  115.  
  116. ;  Component-specific static script errors: -2760 thru -2779 
  117.  
  118. ;  Dialect-specific script errors: -2780 thru -2799 
  119.  
  120. ; 
  121. ; ////////////////////////////////////////////////////////////////////////////////
  122. ; // OSA Interface Descriptions
  123. ; ////////////////////////////////////////////////////////////////////////////////
  124. ; // The OSA Interface is broken down into a required interface, and several
  125. ; // optional interfaces to support additional functionality.  A given scripting
  126. ; // component may choose to support only some of the optional interfaces in
  127. ; // addition to the basic interface.  The OSA Component Flags may be used to 
  128. ; // query the Component Manager to find a scripting component with a particular
  129. ; // capability, or determine if a particular scripting component supports a 
  130. ; // particular capability.
  131. ; ////////////////////////////////////////////////////////////////////////////////
  132. ; 
  133.  
  134. ;  OSA Component Flags 
  135. (defconstant $kOSASupportsCompiling #X2)
  136. (defconstant $kOSASupportsGetSource #X4)
  137. (defconstant $kOSASupportsAECoercion #X8)
  138. (defconstant $kOSASupportsAESending #X10)
  139. (defconstant $kOSASupportsRecording #X20)
  140. (defconstant $kOSASupportsConvenience #X40)
  141. (defconstant $kOSASupportsDialects #X80)
  142. (defconstant $kOSASupportsEventHandling #X100)
  143.  
  144. ;  Component Selectors 
  145. ;  Basic Scripting: 
  146. (defconstant $kOSASelectLoad #X1)
  147. (defconstant $kOSASelectStore #X2)
  148. (defconstant $kOSASelectExecute #X3)
  149. (defconstant $kOSASelectDisplay #X4)
  150. (defconstant $kOSASelectScriptError #X5)
  151. (defconstant $kOSASelectDispose #X6)
  152. (defconstant $kOSASelectSetScriptInfo #X7)
  153. (defconstant $kOSASelectGetScriptInfo #X8)
  154. (defconstant $kOSASelectSetActiveProc #X9)
  155. (defconstant $kOSASelectGetActiveProc #XA)
  156. ;  Compiling: 
  157. (defconstant $kOSASelectScriptingComponentName #X102)
  158. (defconstant $kOSASelectCompile #X103)
  159. (defconstant $kOSASelectCopyID #X104)
  160. ;  GetSource: 
  161. (defconstant $kOSASelectGetSource #X201)
  162. ;  AECoercion: 
  163. (defconstant $kOSASelectCoerceFromDesc #X301)
  164. (defconstant $kOSASelectCoerceToDesc #X302)
  165. ;  AESending: 
  166. (defconstant $kOSASelectSetSendProc #X401)
  167. (defconstant $kOSASelectGetSendProc #X402)
  168. (defconstant $kOSASelectSetCreateProc #X403)
  169. (defconstant $kOSASelectGetCreateProc #X404)
  170. (defconstant $kOSASelectSetDefaultTarget #X405)
  171. ;  Recording: 
  172. (defconstant $kOSASelectStartRecording #X501)
  173. (defconstant $kOSASelectStopRecording #X502)
  174. ;  Convenience: 
  175. (defconstant $kOSASelectLoadExecute #X601)
  176. (defconstant $kOSASelectCompileExecute #X602)
  177. (defconstant $kOSASelectDoScript #X603)
  178. ;  Dialects: 
  179. (defconstant $kOSASelectSetCurrentDialect #X701)
  180. (defconstant $kOSASelectGetCurrentDialect #X702)
  181. (defconstant $kOSASelectAvailableDialects #X703)
  182. (defconstant $kOSASelectGetDialectInfo #X704)
  183. (defconstant $kOSASelectAvailableDialectCodeList #X705)
  184. ;  Event Handling: 
  185. (defconstant $kOSASelectSetResumeDispatchProc #X801)
  186. (defconstant $kOSASelectGetResumeDispatchProc #X802)
  187. (defconstant $kOSASelectExecuteEvent #X803)
  188. (defconstant $kOSASelectDoEvent #X804)
  189. (defconstant $kOSASelectMakeContext #X805)
  190.  
  191. (defconstant $kOSASelectComponentSpecificStart #X1001)
  192. ;  scripting component specific selectors are added beginning with this 
  193. ;       value 
  194.  
  195. ;  Mode Flags 
  196. (defconstant $kOSAModePreventGetSource #X1)
  197. (defconstant $kOSAModeNeverInteract #$KAENEVERINTERACT)
  198. (defconstant $kOSAModeCanInteract #$KAECANINTERACT)
  199. (defconstant $kOSAModeAlwaysInteract #$KAEALWAYSINTERACT)
  200. (defconstant $kOSAModeDontReconnect #$KAEDONTRECONNECT)
  201. (defconstant $kOSAModeCantSwitchLayer #X40)
  202. (defconstant $kOSAModeDoRecord #X1000)
  203. (defconstant $kOSAModeCompileIntoContext #X2)
  204. (defconstant $kOSAModeAugmentContext #X4)
  205. (defconstant $kOSAModeDisplayForHumans #X8)
  206. (defconstant $kOSAModeDontStoreParent #X4000)
  207.  
  208. ; 
  209. ; ////////////////////////////////////////////////////////////////////////////////
  210. ; // OSA Basic Scripting Interface
  211. ; ////////////////////////////////////////////////////////////////////////////////
  212. ; // Scripting components must at least support the Basic Scripting interface.
  213. ; ////////////////////////////////////////////////////////////////////////////////
  214. ; 
  215.  
  216. ;  Loading and Storing Scripts 
  217.  
  218.  
  219. (deftrap _osaload ((scriptingcomponent (:pointer :componentinstancerecord)) (scriptdata :aedesc) (modeflags :signed-long) (resultingscriptid (:pointer :signed-long)))
  220.    (:stack :signed-long)
  221.    (:stack-trap #xA82A :d0 0 scriptingcomponent scriptdata modeflags resultingscriptid ((+ (ash 12 16) 1) :signed-longint)))
  222.  
  223.  
  224. (deftrap _osastore ((scriptingcomponent (:pointer :componentinstancerecord)) (scriptid :signed-long) (desiredtype :ostype) (modeflags :signed-long) (resultingscriptdata (:pointer :aedesc)))
  225.    (:stack :signed-long)
  226.    (:stack-trap #xA82A :d0 0 scriptingcomponent scriptid desiredtype modeflags resultingscriptdata ((+ (ash 16 16) 2) :signed-longint)))
  227.  
  228. ;  Executing Scripts 
  229.  
  230.  
  231. (deftrap _osaexecute ((scriptingcomponent (:pointer :componentinstancerecord)) (compiledscriptid :signed-long) (contextid :signed-long) (modeflags :signed-long) (resultingscriptvalueid (:pointer :signed-long)))
  232.    (:stack :signed-long)
  233.    (:stack-trap #xA82A :d0 0 scriptingcomponent compiledscriptid contextid modeflags resultingscriptvalueid ((+ (ash 16 16) 3) :signed-longint)))
  234.  
  235. ;  Displaying Results 
  236.  
  237.  
  238. (deftrap _osadisplay ((scriptingcomponent (:pointer :componentinstancerecord)) (scriptvalueid :signed-long) (desiredtype :ostype) (modeflags :signed-long) (resultingtext (:pointer :aedesc)))
  239.    (:stack :signed-long)
  240.    (:stack-trap #xA82A :d0 0 scriptingcomponent scriptvalueid desiredtype modeflags resultingtext ((+ (ash 16 16) 4) :signed-longint)))
  241.  
  242. ;  Getting Error Information 
  243.  
  244.  
  245. (deftrap _osascripterror ((scriptingcomponent (:pointer :componentinstancerecord)) (selector :ostype) (desiredtype :ostype) (resultingerrordescription (:pointer :aedesc)))
  246.    (:stack :signed-long)
  247.    (:stack-trap #xA82A :d0 0 scriptingcomponent selector desiredtype resultingerrordescription ((+ (ash 12 16) 5) :signed-longint)))
  248.  
  249. ;  OSAScriptError selectors: 
  250. (defconstant $kOSAErrorNumber #$KEYERRORNUMBER)
  251. (defconstant $kOSAErrorMessage #$KEYERRORSTRING)
  252. (defconstant $kOSAErrorBriefMessage :|errb|)
  253. (defconstant $kOSAErrorApp :|erap|)
  254. (defconstant $kOSAErrorPartialResult :|ptlr|)
  255. (defconstant $kOSAErrorOffendingObject :|erob|)
  256. (defconstant $kOSAErrorExpectedType :|errt|)
  257. (defconstant $kOSAErrorRange :|erng|)
  258.  
  259. ;  text ranges: 
  260. (defconstant $typeOSAErrorRange :|erng|)
  261. (defconstant $keyOSASourceStart :|srcs|)
  262. (defconstant $keyOSASourceEnd :|srce|)
  263.  
  264. ;  Disposing Script IDs 
  265.  
  266.  
  267. (deftrap _osadispose ((scriptingcomponent (:pointer :componentinstancerecord)) (scriptid :signed-long))
  268.    (:stack :signed-long)
  269.    (:stack-trap #xA82A :d0 0 scriptingcomponent scriptid ((+ (ash 4 16) 6) :signed-longint)))
  270.  
  271. ;  Getting and Setting Script Information 
  272.  
  273.  
  274. (deftrap _osasetscriptinfo ((scriptingcomponent (:pointer :componentinstancerecord)) (scriptid :signed-long) (selector :ostype) (value :signed-long))
  275.    (:stack :signed-long)
  276.    (:stack-trap #xA82A :d0 0 scriptingcomponent scriptid selector value ((+ (ash 12 16) 7) :signed-longint)))
  277.  
  278.  
  279. (deftrap _osagetscriptinfo ((scriptingcomponent (:pointer :componentinstancerecord)) (scriptid :signed-long) (selector :ostype) (result (:pointer :signed-long)))
  280.    (:stack :signed-long)
  281.    (:stack-trap #xA82A :d0 0 scriptingcomponent scriptid selector result ((+ (ash 12 16) 8) :signed-longint)))
  282.  
  283. ;  selectors 
  284. (defconstant $kOSAScriptIsModified :|modi|)
  285. (defconstant $kOSAScriptIsTypeCompiledScript :|cscr|)
  286. (defconstant $kOSAScriptIsTypeScriptValue :|valu|)
  287. (defconstant $kOSAScriptIsTypeScriptContext :|cntx|)
  288. (defconstant $kOSAScriptBestType :|best|)
  289. (defconstant $kOSACanGetSource :|gsrc|)
  290.  
  291. ;  Manipulating the ActiveProc 
  292.  
  293. (def-mactype :OSAACTIVEPROCPTR (find-mactype :POINTER))
  294.  
  295.  
  296. (deftrap _osasetactiveproc ((scriptingcomponent (:pointer :componentinstancerecord)) (activeproc :pointer) (refcon :signed-long))
  297.    (:stack :signed-long)
  298.    (:stack-trap #xA82A :d0 0 scriptingcomponent activeproc refcon ((+ (ash 8 16) 9) :signed-longint)))
  299.  
  300.  
  301. (deftrap _osagetactiveproc ((scriptingcomponent (:pointer :componentinstancerecord)) (activeproc (:pointer :pointer)) (refcon (:pointer :signed-long)))
  302.    (:stack :signed-long)
  303.    (:stack-trap #xA82A :d0 0 scriptingcomponent activeproc refcon ((+ (ash 8 16) 10) :signed-longint)))
  304.  
  305. ; 
  306. ; ////////////////////////////////////////////////////////////////////////////////
  307. ; // OSA Optional Compiling Interface
  308. ; ////////////////////////////////////////////////////////////////////////////////
  309. ; // Scripting components that support the Compiling interface have the 
  310. ; // kOSASupportsCompiling bit set in it's ComponentDescription.
  311. ; ////////////////////////////////////////////////////////////////////////////////
  312. ; 
  313.  
  314.  
  315. (deftrap _osascriptingcomponentname ((scriptingcomponent (:pointer :componentinstancerecord)) (resultingscriptingcomponentname (:pointer :aedesc)))
  316.    (:stack :signed-long)
  317.    (:stack-trap #xA82A :d0 0 scriptingcomponent resultingscriptingcomponentname ((+ (ash 4 16) 258) :signed-longint)))
  318.  
  319.  
  320. (deftrap _osacompile ((scriptingcomponent (:pointer :componentinstancerecord)) (sourcedata :aedesc) (modeflags :signed-long) (previousandresultingscriptid (:pointer :signed-long)))
  321.    (:stack :signed-long)
  322.    (:stack-trap #xA82A :d0 0 scriptingcomponent sourcedata modeflags previousandresultingscriptid ((+ (ash 12 16) 259) :signed-longint)))
  323.  
  324.  
  325. (deftrap _osacopyid ((scriptingcomponent (:pointer :componentinstancerecord)) (fromid :signed-long) (toid (:pointer :signed-long)))
  326.    (:stack :signed-long)
  327.    (:stack-trap #xA82A :d0 0 scriptingcomponent fromid toid ((+ (ash 8 16) 260) :signed-longint)))
  328.  
  329. ; 
  330. ; ////////////////////////////////////////////////////////////////////////////////
  331. ; // OSA Optional GetSource Interface
  332. ; ////////////////////////////////////////////////////////////////////////////////
  333. ; // Scripting components that support the GetSource interface have the 
  334. ; // kOSASupportsGetSource bit set in it's ComponentDescription.
  335. ; ////////////////////////////////////////////////////////////////////////////////
  336. ; 
  337.  
  338.  
  339. (deftrap _osagetsource ((scriptingcomponent (:pointer :componentinstancerecord)) (scriptid :signed-long) (desiredtype :ostype) (resultingsourcedata (:pointer :aedesc)))
  340.    (:stack :signed-long)
  341.    (:stack-trap #xA82A :d0 0 scriptingcomponent scriptid desiredtype resultingsourcedata ((+ (ash 12 16) 513) :signed-longint)))
  342.  
  343. ; 
  344. ; ////////////////////////////////////////////////////////////////////////////////
  345. ; // OSA Optional AECoercion Interface
  346. ; ////////////////////////////////////////////////////////////////////////////////
  347. ; // Scripting components that support the AECoercion interface have the 
  348. ; // kOSASupportsGetSource bit set in it's ComponentDescription.
  349. ; ////////////////////////////////////////////////////////////////////////////////
  350. ; 
  351.  
  352.  
  353. (deftrap _osacoercefromdesc ((scriptingcomponent (:pointer :componentinstancerecord)) (scriptdata :aedesc) (modeflags :signed-long) (resultingscriptid (:pointer :signed-long)))
  354.    (:stack :signed-long)
  355.    (:stack-trap #xA82A :d0 0 scriptingcomponent scriptdata modeflags resultingscriptid ((+ (ash 12 16) 769) :signed-longint)))
  356.  
  357.  
  358. (deftrap _osacoercetodesc ((scriptingcomponent (:pointer :componentinstancerecord)) (scriptid :signed-long) (desiredtype :ostype) (modeflags :signed-long) (result (:pointer :aedesc)))
  359.    (:stack :signed-long)
  360.    (:stack-trap #xA82A :d0 0 scriptingcomponent scriptid desiredtype modeflags result ((+ (ash 16 16) 770) :signed-longint)))
  361.  
  362. ; 
  363. ; ////////////////////////////////////////////////////////////////////////////////
  364. ; // OSA Optional AESending Interface
  365. ; ////////////////////////////////////////////////////////////////////////////////
  366. ; // Scripting components that support the AESending interface have the 
  367. ; // kOSASupportsAESending bit set in it's ComponentDescription.
  368. ; ////////////////////////////////////////////////////////////////////////////////
  369. ; 
  370.  
  371. (def-mactype :AESENDPROCPTR (find-mactype :POINTER))
  372. (def-mactype :AECREATEAPPLEEVENTPROCPTR (find-mactype :POINTER))
  373.  
  374. ;   The first two proc pointers have the following interfaces
  375. ;    taken from AppleEvents.p 
  376. ;    
  377. ;     FUNCTION MyAECreateProc(theAEEventClass: AEEventClass;
  378. ;                             theAEEventID: AEEventID;
  379. ;                             target: AEAddressDesc;
  380. ;                             returnID: INTEGER;
  381. ;                             transactionID: LONGINT;
  382. ;                             VAR result: AppleEvent): OSErr;
  383. ;     
  384. ;     FUNCTION MyAESendProc(theAppleEvent: AppleEvent;
  385. ;                           VAR reply: AppleEvent;
  386. ;                           sendMode: AESendMode;
  387. ;                           sendPriority: AESendPriority;
  388. ;                           timeOutInTicks: LONGINT;
  389. ;                           idleProc: IdleProcPtr;
  390. ;                           filterProc: EventFilterProcPtr): OSErr;
  391. ; 
  392. ;     FUNCTION MyActiveProc(): OSErr;
  393. ; 
  394. ; 
  395.  
  396.  
  397. (deftrap _osasetsendproc ((scriptingcomponent (:pointer :componentinstancerecord)) (sendproc :pointer) (refcon :signed-long))
  398.    (:stack :signed-long)
  399.    (:stack-trap #xA82A :d0 0 scriptingcomponent sendproc refcon ((+ (ash 8 16) 1025) :signed-longint)))
  400.  
  401.  
  402. (deftrap _osagetsendproc ((scriptingcomponent (:pointer :componentinstancerecord)) (sendproc (:pointer :pointer)) (refcon (:pointer :signed-long)))
  403.    (:stack :signed-long)
  404.    (:stack-trap #xA82A :d0 0 scriptingcomponent sendproc refcon ((+ (ash 8 16) 1026) :signed-longint)))
  405.  
  406.  
  407. (deftrap _osasetcreateproc ((scriptingcomponent (:pointer :componentinstancerecord)) (createproc :pointer) (refcon :signed-long))
  408.    (:stack :signed-long)
  409.    (:stack-trap #xA82A :d0 0 scriptingcomponent createproc refcon ((+ (ash 8 16) 1027) :signed-longint)))
  410.  
  411.  
  412. (deftrap _osagetcreateproc ((scriptingcomponent (:pointer :componentinstancerecord)) (createproc (:pointer :pointer)) (refcon (:pointer :signed-long)))
  413.    (:stack :signed-long)
  414.    (:stack-trap #xA82A :d0 0 scriptingcomponent createproc refcon ((+ (ash 8 16) 1028) :signed-longint)))
  415.  
  416.  
  417. (deftrap _osasetdefaulttarget ((scriptingcomponent (:pointer :componentinstancerecord)) (target :aedesc))
  418.    (:stack :signed-long)
  419.    (:stack-trap #xA82A :d0 0 scriptingcomponent target ((+ (ash 4 16) 1029) :signed-longint)))
  420.  
  421. ; 
  422. ; ////////////////////////////////////////////////////////////////////////////////
  423. ; // OSA Optional Recording Interface
  424. ; ////////////////////////////////////////////////////////////////////////////////
  425. ; // Scripting components that support the Recording interface have the 
  426. ; // kOSASupportsRecording bit set in it's ComponentDescription.
  427. ; ////////////////////////////////////////////////////////////////////////////////
  428. ; 
  429.  
  430.  
  431. (deftrap _osastartrecording ((scriptingcomponent (:pointer :componentinstancerecord)) (compiledscripttomodifyid (:pointer :signed-long)))
  432.    (:stack :signed-long)
  433.    (:stack-trap #xA82A :d0 0 scriptingcomponent compiledscripttomodifyid ((+ (ash 4 16) 1281) :signed-longint)))
  434.  
  435.  
  436. (deftrap _osastoprecording ((scriptingcomponent (:pointer :componentinstancerecord)) (compiledscriptid :signed-long))
  437.    (:stack :signed-long)
  438.    (:stack-trap #xA82A :d0 0 scriptingcomponent compiledscriptid ((+ (ash 4 16) 1282) :signed-longint)))
  439.  
  440. ; 
  441. ; ////////////////////////////////////////////////////////////////////////////////
  442. ; // OSA Optional Convenience Interface
  443. ; ////////////////////////////////////////////////////////////////////////////////
  444. ; // Scripting components that support the Convenience interface have the 
  445. ; // kOSASupportsConvenience bit set in it's ComponentDescription.
  446. ; ////////////////////////////////////////////////////////////////////////////////
  447. ; 
  448.  
  449.  
  450. (deftrap _osaloadexecute ((scriptingcomponent (:pointer :componentinstancerecord)) (scriptdata :aedesc) (contextid :signed-long) (modeflags :signed-long) (resultingscriptvalueid (:pointer :signed-long)))
  451.    (:stack :signed-long)
  452.    (:stack-trap #xA82A :d0 0 scriptingcomponent scriptdata contextid modeflags resultingscriptvalueid ((+ (ash 16 16) 1537) :signed-longint)))
  453.  
  454.  
  455. (deftrap _osacompileexecute ((scriptingcomponent (:pointer :componentinstancerecord)) (sourcedata :aedesc) (contextid :signed-long) (modeflags :signed-long) (resultingscriptvalueid (:pointer :signed-long)))
  456.    (:stack :signed-long)
  457.    (:stack-trap #xA82A :d0 0 scriptingcomponent sourcedata contextid modeflags resultingscriptvalueid ((+ (ash 16 16) 1538) :signed-longint)))
  458.  
  459.  
  460. (deftrap _osadoscript ((scriptingcomponent (:pointer :componentinstancerecord)) (sourcedata :aedesc) (contextid :signed-long) (desiredtype :ostype) (modeflags :signed-long) (resultingtext (:pointer :aedesc)))
  461.    (:stack :signed-long)
  462.    (:stack-trap #xA82A :d0 0 scriptingcomponent sourcedata contextid desiredtype modeflags resultingtext ((+ (ash 20 16) 1539) :signed-longint)))
  463.  
  464. ; 
  465. ; ////////////////////////////////////////////////////////////////////////////////
  466. ; // OSA Optional Dialects Interface
  467. ; ////////////////////////////////////////////////////////////////////////////////
  468. ; // Scripting components that support the Dialects interface have the 
  469. ; // kOSASupportsDialects bit set in it's ComponentDescription.
  470. ; ////////////////////////////////////////////////////////////////////////////////
  471. ; 
  472.  
  473.  
  474. (deftrap _osasetcurrentdialect ((scriptingcomponent (:pointer :componentinstancerecord)) (dialectcode :signed-integer))
  475.    (:stack :signed-long)
  476.    (:stack-trap #xA82A :d0 0 scriptingcomponent dialectcode ((+ (ash 2 16) 1793) :signed-longint)))
  477.  
  478.  
  479. (deftrap _osagetcurrentdialect ((scriptingcomponent (:pointer :componentinstancerecord)) (resultingdialectcode (:pointer :signed-integer)))
  480.    (:stack :signed-long)
  481.    (:stack-trap #xA82A :d0 0 scriptingcomponent resultingdialectcode ((+ (ash 4 16) 1794) :signed-longint)))
  482.  
  483.  
  484. (deftrap _osaavailabledialects ((scriptingcomponent (:pointer :componentinstancerecord)) (resultingdialectinfolist (:pointer :aedesc)))
  485.    (:stack :signed-long)
  486.    (:stack-trap #xA82A :d0 0 scriptingcomponent resultingdialectinfolist ((+ (ash 4 16) 1795) :signed-longint)))
  487. ;  *** This is obsolete. 
  488. ;  *** Use OSAAvailableDialectCodeList and OSAGetDialectInfo. 
  489.  
  490.  
  491. (deftrap _osagetdialectinfo ((scriptingcomponent (:pointer :componentinstancerecord)) (dialectcode :signed-integer) (selector :ostype) (resultingdialectinfo (:pointer :aedesc)))
  492.    (:stack :signed-long)
  493.    (:stack-trap #xA82A :d0 0 scriptingcomponent dialectcode selector resultingdialectinfo ((+ (ash 10 16) 1796) :signed-longint)))
  494.  
  495.  
  496. (deftrap _osaavailabledialectcodelist ((scriptingcomponent (:pointer :componentinstancerecord)) (resultingdialectcodelist :aedesc))
  497.    (:stack :signed-long)
  498.    (:stack-trap #xA82A :d0 0 scriptingcomponent resultingdialectcodelist ((+ (ash 4 16) 1797) :signed-longint)))
  499.  
  500. (defconstant $typeOSADialectInfo :|difo|)
  501. (defconstant $keyOSADialectName :|dnam|)
  502. (defconstant $keyOSADialectCode :|dcod|)
  503. (defconstant $keyOSADialectLangCode :|dlcd|)
  504. (defconstant $keyOSADialectScriptCode :|dscd|)
  505.  
  506. ; 
  507. ; ////////////////////////////////////////////////////////////////////////////////
  508. ; // OSA Optional Event Handling Interface
  509. ; ////////////////////////////////////////////////////////////////////////////////
  510. ; // Scripting components that support the Event Handling interface have the 
  511. ; // kOSASupportsEventHandling bit set in it's ComponentDescription.
  512. ; ////////////////////////////////////////////////////////////////////////////////
  513. ; 
  514.  
  515. (def-mactype :AEHANDLERPROCPTR (find-mactype :POINTER))
  516.  
  517.  
  518. (deftrap _osasetresumedispatchproc ((scriptingcomponent (:pointer :componentinstancerecord)) (resumedispatchproc :pointer) (refcon :signed-long))
  519.    (:stack :signed-long)
  520.    (:stack-trap #xA82A :d0 0 scriptingcomponent resumedispatchproc refcon ((+ (ash 8 16) 2049) :signed-longint)))
  521.  
  522. ;  ResumeDispatchProc constants 
  523. (defconstant $kOSAUseStandardDispatch #$KAEUSESTANDARDDISPATCH)
  524. (defconstant $kOSANoDispatch #$KAENODISPATCH)
  525. ;  OSASetResumeDispatchProc refCon constants 
  526. (defconstant $kOSADontUsePhac #X1)
  527.  
  528.  
  529. (deftrap _osagetresumedispatchproc ((scriptingcomponent (:pointer :componentinstancerecord)) (resumedispatchproc (:pointer :pointer)) (refcon (:pointer :signed-long)))
  530.    (:stack :signed-long)
  531.    (:stack-trap #xA82A :d0 0 scriptingcomponent resumedispatchproc refcon ((+ (ash 8 16) 2050) :signed-longint)))
  532.  
  533.  
  534. (deftrap _osaexecuteevent ((scriptingcomponent (:pointer :componentinstancerecord)) (theappleevent :aedesc) (contextid :signed-long) (modeflags :signed-long) (resultingscriptvalueid (:pointer :signed-long)))
  535.    (:stack :signed-long)
  536.    (:stack-trap #xA82A :d0 0 scriptingcomponent theappleevent contextid modeflags resultingscriptvalueid ((+ (ash 16 16) 2051) :signed-longint)))
  537.  
  538.  
  539. (deftrap _osadoevent ((scriptingcomponent (:pointer :componentinstancerecord)) (theappleevent :aedesc) (contextid :signed-long) (modeflags :signed-long) (reply (:pointer :aedesc)))
  540.    (:stack :signed-long)
  541.    (:stack-trap #xA82A :d0 0 scriptingcomponent theappleevent contextid modeflags reply ((+ (ash 16 16) 2052) :signed-longint)))
  542.  
  543.  
  544. (deftrap _osamakecontext ((scriptingcomponent (:pointer :componentinstancerecord)) (contextname :aedesc) (parentcontext :signed-long) (resultingcontextid (:pointer :signed-long)))
  545.    (:stack :signed-long)
  546.    (:stack-trap #xA82A :d0 0 scriptingcomponent contextname parentcontext resultingcontextid ((+ (ash 12 16) 2053) :signed-longint)))
  547.  
  548. ; $ENDC                         ;  UsingOSA 
  549.  
  550. ; $IFC NOT UsingIncludes
  551.  
  552. ; $ENDC
  553.  
  554. (export '($KOSADONTUSEPHAC $KOSANODISPATCH $KOSAUSESTANDARDDISPATCH
  555.           $KEYOSADIALECTSCRIPTCODE $KEYOSADIALECTLANGCODE $KEYOSADIALECTCODE
  556.           $KEYOSADIALECTNAME $TYPEOSADIALECTINFO $KOSACANGETSOURCE
  557.           $KOSASCRIPTBESTTYPE $KOSASCRIPTISTYPESCRIPTCONTEXT
  558.           $KOSASCRIPTISTYPESCRIPTVALUE $KOSASCRIPTISTYPECOMPILEDSCRIPT
  559.           $KOSASCRIPTISMODIFIED $KEYOSASOURCEEND $KEYOSASOURCESTART
  560.           $TYPEOSAERRORRANGE $KOSAERRORRANGE $KOSAERROREXPECTEDTYPE
  561.           $KOSAERROROFFENDINGOBJECT $KOSAERRORPARTIALRESULT $KOSAERRORAPP
  562.           $KOSAERRORBRIEFMESSAGE $KOSAERRORMESSAGE $KOSAERRORNUMBER
  563.           $KOSAMODEDONTSTOREPARENT $KOSAMODEDISPLAYFORHUMANS
  564.           $KOSAMODEAUGMENTCONTEXT $KOSAMODECOMPILEINTOCONTEXT $KOSAMODEDORECORD
  565.           $KOSAMODECANTSWITCHLAYER $KOSAMODEDONTRECONNECT
  566.           $KOSAMODEALWAYSINTERACT $KOSAMODECANINTERACT $KOSAMODENEVERINTERACT
  567.           $KOSAMODEPREVENTGETSOURCE $KOSASELECTCOMPONENTSPECIFICSTART
  568.           $KOSASELECTMAKECONTEXT $KOSASELECTDOEVENT $KOSASELECTEXECUTEEVENT
  569.           $KOSASELECTGETRESUMEDISPATCHPROC $KOSASELECTSETRESUMEDISPATCHPROC
  570.           $KOSASELECTAVAILABLEDIALECTCODELIST $KOSASELECTGETDIALECTINFO
  571.           $KOSASELECTAVAILABLEDIALECTS $KOSASELECTGETCURRENTDIALECT
  572.           $KOSASELECTSETCURRENTDIALECT $KOSASELECTDOSCRIPT
  573.           $KOSASELECTCOMPILEEXECUTE $KOSASELECTLOADEXECUTE
  574.           $KOSASELECTSTOPRECORDING $KOSASELECTSTARTRECORDING
  575.           $KOSASELECTSETDEFAULTTARGET $KOSASELECTGETCREATEPROC
  576.           $KOSASELECTSETCREATEPROC $KOSASELECTGETSENDPROC
  577.           $KOSASELECTSETSENDPROC $KOSASELECTCOERCETODESC
  578.           $KOSASELECTCOERCEFROMDESC $KOSASELECTGETSOURCE $KOSASELECTCOPYID
  579.           $KOSASELECTCOMPILE $KOSASELECTSCRIPTINGCOMPONENTNAME
  580.           $KOSASELECTGETACTIVEPROC $KOSASELECTSETACTIVEPROC
  581.           $KOSASELECTGETSCRIPTINFO $KOSASELECTSETSCRIPTINFO $KOSASELECTDISPOSE
  582.           $KOSASELECTSCRIPTERROR $KOSASELECTDISPLAY $KOSASELECTEXECUTE
  583.           $KOSASELECTSTORE $KOSASELECTLOAD $KOSASUPPORTSEVENTHANDLING
  584.           $KOSASUPPORTSDIALECTS $KOSASUPPORTSCONVENIENCE $KOSASUPPORTSRECORDING
  585.           $KOSASUPPORTSAESENDING $KOSASUPPORTSAECOERCION $KOSASUPPORTSGETSOURCE
  586.           $KOSASUPPORTSCOMPILING $ERROSACONTROLFLOWERROR
  587.           $ERROSAINCONSISTENTDECLARATIONS $ERROSAUNDEFINEDVARIABLE
  588.           $ERROSADUPLICATEHANDLER $ERROSADUPLICATEPROPERTY
  589.           $ERROSADUPLICATEPARAMETER $ERROSAPARAMETERMISMATCH
  590.           $ERROSAMISSINGPARAMETER $ERROSATOKENTOOLONG $ERROSASYNTAXTYPEERROR
  591.           $ERROSASYNTAXERROR $ERROSAILLEGALASSIGN $ERROSAILLEGALRANGE
  592.           $ERROSAILLEGALINDEX $ERROSAILLEGALACCESS $ERROSAUNDEFINEDHANDLER
  593.           $ERROSAMESSAGENOTUNDERSTOOD $ERROSATYPEERROR $ERROSADATABLOCKTOOLARGE
  594.           $ERROSAINTERNALTABLEOVERFLOW $ERROSASTACKOVERFLOW
  595.           $ERROSACORRUPTTERMINOLOGY $ERROSAAPPNOTHIGHLEVELEVENTAWARE
  596.           $ERROSACANTLAUNCH $ERROSANUMERICOVERFLOW $ERROSADIVIDEBYZERO
  597.           $ERROSAGENERALERROR $ERROSACANTASSIGN $ERROSACANTACCESS
  598.           $ERROSACANTCOERCE $ERROSARECORDINGISALREADYON $ERROSACORRUPTDATA
  599.           $ERROSADATAFORMATTOONEW $ERROSADATAFORMATOBSOLETE
  600.           $ERROSANOSUCHDIALECT $ERROSASOURCENOTAVAILABLE $ERROSABADSELECTOR
  601.           $ERROSASCRIPTERROR $ERROSABADSTORAGETYPE $ERROSAINVALIDID
  602.           $ERROSASYSTEMERROR $TYPEOSAGENERICSTORAGE $KOSASCRIPTRESOURCETYPE
  603.           $KOSARECORDEDTEXT $KOSASUITE $KOSAMODENULL $KOSANULLMODE
  604.           $KOSANULLSCRIPT $KOSAFILETYPE $KOSAGENERICSCRIPTINGCOMPONENTSUBTYPE
  605.           $KOSACOMPONENTTYPE))
  606. (provide-interface 'OSA)